(show-paren-command-hook):

Always set show-paren-mismatch-face to symbol, not face vector.

diff --git a/lisp/paren.el b/lisp/paren.el
index 14d2d0c5b0da9d564c6f2bca50e260081a2d98dd..34768396a3de6d2896b16cf1b9f6b60f588f5136 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -82,14 +82,12 @@
                    (progn
                      (and (null show-paren-mismatch-face)
                           (x-display-color-p)
-                          (or (setq show-paren-mismatch-face
-                                    (internal-find-face 'paren-mismatch))
+                          (or (internal-find-face 'paren-mismatch)
                               (progn
                                 (make-face 'paren-mismatch)
-                                (setq show-paren-mismatch-face
-                                      'paren-mismatch)
                                 (set-face-background 'paren-mismatch
-                                                     "purple"))))
+                                                     "purple")))
+                          (setq show-paren-mismatch-face 'paren-mismatch))
                      (if show-paren-mismatch-face
                          (setq face show-paren-mismatch-face)
                        (message "Paren mismatch"))))